home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zn.d64 / proc.read'u'gr.I < prev    next >
Text File  |  2007-03-01  |  901b  |  29 lines
  1. 0010 ╨╥╧├ READ'U'GRAPH(T,R,╥┼╞ VALUES(,),╥┼╞ SCALE$(,),╥┼╞ LABELS$(),F$) ├╠╧╙┼─
  2. 0020   // INPUT:  ┬RIAN 11.9.86
  3. 0030   //CALLS U'GRAPH UNLESS TYPE:=0
  4. 0040   ╔═╨╧╥╘ U'GRAPH
  5. 0050   ╧╨┼╬ ╞╔╠┼ 2,"0:U'GR."+F$,╥┼┴─
  6. 0060   ╔╬╨╒╘ ╞╔╠┼ 2: VALUES(0,1)
  7. 0065   ╔╬╨╒╘ ╞╔╠┼ 2: VALUES(0,2)
  8. 0070   ╞╧╥ I:=1 ╘╧ VALUES(0,1) ─╧
  9. 0080     ╔╬╨╒╘ ╞╔╠┼ 2: VALUES(I,1)
  10. 0085     ╔╬╨╒╘ ╞╔╠┼ 2: VALUES(I,2)
  11. 0090   ┼╬─╞╧╥ I
  12. 0100   ╞╧╥ I:=0 ╘╧ 2 ─╧ ╔╬╨╒╘ ╞╔╠┼ 2: LABELS$(I)
  13. 0110   ╞╧╥ AXIS:=1 ╘╧ 2 ─╧
  14. 0120     ╔╬╨╒╘ ╞╔╠┼ 2: SCALE$(0,AXIS)
  15. 0130     ├┴╙┼ SCALE$(0,AXIS)(1) ╧╞
  16. 0140     ╫╚┼╬ "N"
  17. 0150       N:=3
  18. 0160     ╫╚┼╬ "A"
  19. 0170       N:=╓┴╠(SCALE$(0,AXIS)(2:))
  20. 0180     ╫╚┼╬ "V"
  21. 0190       N:=2*╓┴╠(SCALE$(0,AXIS)(2:))+3
  22. 0200     ┼╬─├┴╙┼ 
  23. 0210     ╞╧╥ I:=1 ╘╧ N ─╧ ╔╬╨╒╘ ╞╔╠┼ 2: SCALE$(I,AXIS)
  24. 0220   ┼╬─╞╧╥ AXIS
  25. 0230   ├╠╧╙┼ ╞╔╠┼ 2
  26. 0240   ╔╞ T<>0 ╘╚┼╬ U'GRAPH(T,R,VALUES(,),SCALE$(,),LABELS$())
  27. 0250 ┼╬─╨╥╧├ READ'U'GRAPH
  28. 0260 
  29.